* src/print.c (print_preprocess): Don't forget font objects.

diff --git a/src/ChangeLog b/src/ChangeLog
index 44e4494d79afdaf70064837d719b522b505884d3..e25ed31f45b438cce8a0ec51906e155df114e15a 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2011-03-16  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * print.c (print_preprocess): Don't forget font objects.
+
 2011-03-16  Juanma Barranquero  <lekktu@gmail.com>
 
        * emacs.c (USAGE3): Doc fixes.

diff --git a/src/print.c b/src/print.c
index 29a4bfab790e29994d41be4758151d2ffbaa72a9..f48ba57b5743ace004ba11ab020e75ab33e7dd59 100644 (file)
--- a/src/print.c
+++ b/src/print.c
@@ -1209,7 +1209,7 @@ print_preprocess (Lisp_Object obj)
  loop:
   if (STRINGP (obj) || CONSP (obj) || VECTORP (obj)
       || COMPILEDP (obj) || CHAR_TABLE_P (obj) || SUB_CHAR_TABLE_P (obj)
-      || HASH_TABLE_P (obj)
+      || HASH_TABLE_P (obj) || FONTP (obj)
       || (! NILP (Vprint_gensym)
          && SYMBOLP (obj)
          && !SYMBOL_INTERNED_P (obj)))